inherited frmSubContas: TfrmSubContas
  Left = 239
  Top = 137
  Caption = ''
  ClientHeight = 446
  ClientWidth = 655
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 409
    Width = 655
  end
  inherited Panel2: TPanel
    Width = 655
    Height = 409
    inherited Panel3: TPanel
      Width = 653
      Caption = 'Sub-Conta'
      inherited GroupBox1: TGroupBox
        Left = 574
      end
    end
    inherited Panel4: TPanel
      Width = 653
      Height = 367
      object Label1: TLabel [0]
        Left = 16
        Top = 55
        Width = 33
        Height = 14
        Caption = 'C'#243'digo'
        FocusControl = EdtCidCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel [1]
        Left = 60
        Top = 55
        Width = 96
        Height = 14
        Caption = 'Nome da Sub-Conta'
        FocusControl = EdtCidDescri
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel [2]
        Left = 16
        Top = 9
        Width = 28
        Height = 14
        Caption = 'Conta'
        FocusControl = EdtCidCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      inherited DBGrid1: TDBGrid
        Top = 99
        Width = 645
        Height = 245
        TabOrder = 6
      end
      inherited SbHints: TStatusBar
        Top = 344
        Width = 645
      end
      object EdtCidCodigo: TDBEdit
        Left = 16
        Top = 69
        Width = 42
        Height = 20
        Hint = 'C'#243'digo da Sub-Conta'
        CharCase = ecUpperCase
        DataField = 'SUB_CODIGO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnExit = EdtCidCodigoExit
      end
      object EdtCidDescri: TDBEdit
        Left = 60
        Top = 69
        Width = 297
        Height = 20
        Hint = 'Nome da Sub-Conta'
        CharCase = ecUpperCase
        DataField = 'SUB_DESCRICAO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnExit = EdtCidDescriExit
      end
      object EdtEstCod: TDBEdit
        Left = 16
        Top = 22
        Width = 45
        Height = 21
        Hint = 'C'#243'digo da conta'
        CharCase = ecUpperCase
        DataField = 'SUB_IDFCONTA'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtEstCodExit
      end
      object BtnEstCodigo: TBitBtn
        Left = 57
        Top = 21
        Width = 22
        Height = 23
        Hint = 'Consulta Contas cadastradas'
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = False
        OnClick = BtnEstCodigoClick
      end
      object EdtEstNom: TEdit
        Left = 79
        Top = 24
        Width = 276
        Height = 19
        TabStop = False
        AutoSize = False
        CharCase = ecUpperCase
        Color = clBtnFace
        Ctl3D = False
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 4
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_SubConta
    Left = 64
    Top = 208
  end
  object SQLC_SubConta: TSQLClientDataSet
    CommandText = 
      'select  * from CONTAS_SUBCONTA where sub_idfconta=:pidfconta and' +
      #13#10'sub_codigo=:pcodigo;'#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pidfconta'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 64
    Top = 261
    object SQLC_SubContaSUB_IDFCONTA: TStringField
      FieldName = 'SUB_IDFCONTA'
      Required = True
      Size = 15
    end
    object SQLC_SubContaSUB_DESCRICAO: TStringField
      DisplayLabel = 'DESCRICAO'
      FieldName = 'SUB_DESCRICAO'
      Required = True
      Size = 40
    end
    object SQLC_SubContaSUB_CODIGO: TStringField
      DisplayLabel = 'CODIGO SUB CONTA'
      FieldName = 'SUB_CODIGO'
      Required = True
      Size = 15
    end
  end
end
